home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Simpsons Cartoon Studio™ Demo / Simpsons / Support / dlogdata / open.Dxr / 00032_credits field.ls < prev    next >
Encoding:
Text File  |  1996-08-16  |  577 b   |  29 lines
  1. global creditsEdited
  2.  
  3. on keyDown
  4.   set creditsEdited to 1
  5.   if the key = ENTER then
  6.     openCartoon(theOpenDialog)
  7.   else
  8.     if the key = ":" then
  9.       beep()
  10.     else
  11.       if the key = QUOTE then
  12.         beep()
  13.       else
  14.         set l to the number of lines in field "credits field"
  15.         set c to the number of chars in field "credits field"
  16.         if (l > 9) or (c > 144) then
  17.           if the key = BACKSPACE then
  18.             pass()
  19.           else
  20.             beep()
  21.           end if
  22.         else
  23.           pass()
  24.         end if
  25.       end if
  26.     end if
  27.   end if
  28. end
  29.